perm filename REQUIR.2[MAC,LSP] blob sn#395112 filedate 1978-12-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun require fexpr (file)
C00003 ENDMK
CāŠ—;
;(defun require fexpr (file)
; ((lambda (f eof)
;   (do ((form (read f eof)
;	      (read f eof)))
;       ((eq form eof) f)
;       (eval form)))
;  (apply 'include (ncons (defaultf file))) (ncons nil)))


(defun require fexpr (file)
       ((lambda (cr)
		(apply 'load (ncons (ugreat1 (defaultf file)))) 
		(apply 'crunit cr))
	(status crunit)))